Функция VBA UCASE преобразует строку символов в верхний регистр.
UCase(текст)
Преобразование строки в верхний регистр:
Sub UCaseExample()
text = "Ref-45-X-876-rt"
text = UCase(text)
MsgBox text 'Возвращает: REF-45-X-876-RT
End Sub